Module Sons_Avisos_Alertas

Tocando sons Wav

    Public Sub TocaWav()
        'tocando um arquivo wav
        My.Computer.Audio.Play("c:\pasta\chord.wav") 'cuidado, se o arquivo não existir da erro
    End Sub

Tocando um som Padrão do sistema windows

    Public Sub TocaSonsSistema()
        My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Exclamation)
    End Sub

Tocando um beep

    Public Sub Beep()
        System.Console.Beep()
    End Sub

Gerando uma faixa de frequencias

    Public Sub GeraFrequenciasBaixaAltas()
        Dim x As Integer

        For x = 37 To 32000 Step 1000
            Console.WriteLine(x)
            System.Console.Beep(x, 1000) '1000=freq e duração (ms)
        Next
    End Sub
End Module